home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / index.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  3.3 KB  |  108 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 ENABLESESSIONSTATE="True" %>
  2. <!--#include file="include/wmsConstants.inc"-->
  3. <!--#include file="include/wmsLocStrings.inc"-->
  4. <!--#include file="include/wmsCommon.inc"-->
  5. <!--#include file="include/wmsServerHash.inc"-->
  6. <!--#include file="include/wmsHeader.inc"-->
  7. <!--#include file="include/wmsRefresh.inc"-->
  8. <%
  9. '+-------------------------------------------------------------------------
  10. '
  11. '  Microsoft Windows Media
  12. '  Copyright (C) Microsoft Corporation. All rights reserved.
  13. '
  14. '  File:       Index.asp
  15. '
  16. '  Contents:   Frameset for server list and for nesting security settings
  17. '
  18. '--------------------------------------------------------------------------
  19.  
  20. if( ( FALSE = Session( "Initialized" ) ) or ( FALSE = Session( "ShowServerList" ) ) ) then
  21.     InitSessionUseServerList
  22. end if
  23.  
  24. BrowserSniff
  25. PickStyleSheet
  26. RedirectIfLegacyBrowser
  27.  
  28. '///////////////////////////////////////////////////////////////////////
  29. '
  30. '  This can be entered if the user retrogrades to default.asp and 
  31. '   chooses to admin from a server list after initially administering 
  32. '   only the local server
  33. '
  34. Sub InitSessionUseServerList()
  35.     Dim strHashedServer
  36.     Session( "Initialized" ) = TRUE
  37.     
  38.     SyncWithApplicationState
  39.     
  40.     '
  41.     '  Make security decisions if we got here from the default security page
  42.     '
  43.     if( 0 >= Len( Request.QueryString( "show" ) ) ) then
  44.         if( FALSE = CBool( Session( "ConnectionFailure" ) ) ) then
  45.         
  46.             '
  47.             ' connect to the localhost just as if the user clicked on it from the serverlist page
  48.             '
  49.             Session( "ShowServerList" ) = FALSE
  50.             strHashedServer = ServerNameToHashKey( Application( "strLocalHostName" ), TRUE )
  51.         end if
  52.     end if
  53.  
  54.     Session( "Initialized" ) = TRUE
  55.     Session( "ShowServerList" ) = TRUE
  56.     strHashedServer = empty    
  57. End Sub
  58.  
  59.  
  60. WriteHTMLFramesetHeader %>
  61. <script language="javascript">
  62. <!--
  63. /*@cc_on @*/
  64. ///////////////////////////////////////////////////////////////////////
  65. function RecordLocalHostWinName( szWinName )
  66. {
  67. /*@if (@_jscript_version >= 1.3)
  68.     try 
  69.     {
  70. @end @*/
  71.     var win = null;
  72.     if( frames && frames[ "frameDetails" ] )
  73.     {
  74.         win = frames[ "frameDetails" ];
  75.         if( win )
  76.         {
  77.             win.RecordLocalHostWinName( szWinName )
  78.         }
  79.     }
  80. /*@if (@_jscript_version >= 1.3)
  81.     }
  82.     catch( error )
  83.     {
  84.         return;
  85.     }
  86. @end @*/
  87. }
  88.  
  89. -->
  90. </script>
  91. <title>
  92.     <%= Server.HTMLEncode( L_WMSWEBADMINTITLE_TEXT ) %>
  93. </title>
  94. <frameset rows="*,-10" >
  95.     <frame name="frameDetails" src="serverlist.asp<% if ( 0 < Len( Request.QueryString( "show" ) ) ) then %>?show=true<% end if %>" frameborder="0" topmargin="10" leftmargin="10" rightmargin="10" marginwidth="10" marginheight="10" scrolling="auto">
  96.     <frame name="WMSSession" src="WMSSession.asp" noresize frameborder="0" height="0" framespacing="0" topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" scrolling="no">
  97.     <noframes>
  98.         <body oncontextmenu="JavaScript:return true;event.cancelBubble=true;return false;">
  99.         <p>
  100.             <a href="..\oldBrowser.asp" target="_top" ><%= Server.HTMLEncode( L_NOFRAMESUPPORT_TEXT ) %></a>
  101.         <p>
  102.         </body>
  103.     </noframes>
  104. </frameset>
  105. </html>
  106. <%
  107. WMSServerHashASPCleanup
  108. %>